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* GENERAL AUTOMATION, INC, ALL PIfHTS c£SERVEO 

* °ROGRAH NAME rpn-i? 

* MODEL NUMBER 8F012 

* PURPOSE FORTRAN °HASE-12 

* PQOGPfiHMrr HICK KALLMANN 

* ^♦♦♦^♦♦♦if*****^* REVISION LIST ****** ******** 

* RV DATE S^C °v REASON r OP CHANGE 

* __ ________ _____ ___ ________________________ 

* 

* 01 11/16/70 NCN£ R"H INITIAL "ELEASE 

**#************************** + ****♦**********■* **** 

* * * **#*** a****************.****.******;************** 

HONG MPX FORTRAN ** ASCAN T 

******»****^** ********#*****#*****#****** ********* 

♦STATUS-VERSTGN 1, MODIFICATION 

* FUNCTION /O c E' ATT tn- 
* 

# 

* 

* 

* 
* 

* 

* 
* 

* 
* 



* EXAMINES ONLY THE ARITHMETIC, T F, CALL, AND 
STATEMENT FUNCTION STATEMENTS IN THE STMNT 
STRING, 

* CHECKS SYNTAX 0^ C TATEMENTS EY?MlNE r , 

* INSERTS A CALL O c FRATOR BETWEEN THE SUP- PROG 
NAME AND ITS HUMMY ARGUMENTS IN A CfLL STMNT 

* CHECKS STATEMENT FUNCTION CALLS, INDUCING 
NESTED CALLS, FOR VALIO NAMES CND THE 
CORRECT NUMBER G* PARAMETERS. 

* CHECKS TO S r u THAT VARIABLES an£ DEFINED 
CORRECTLY ANG SETS DEFINED INfir IN SY* J 3L , 

* CHECKS ^OR VM-IO STATEMENT NUMBER REFERENCES 
IN IP STATEMENTS. REFERENCES TF FORMAT 
STATE MEM NUMPE"S WE INVALID. 

* CHECKS SYNTAX OF THE RECORD NUMBER 
EXPRESSION IN DISK *READ/WRTTE STATEMENTS. 
THE RIGHT PARENTHESIS IS CHANGED TO A COLON 
OPERATOR FACILITATING SCAN OF DISK -EAOY 
WRITE STMNT IN THE NEXT PHA^E. 



*ENTRY POINTS- 

* * STA^T-SHA^E 12 IS LOADED BY PHASE 11 VIA A 

* CALL TO ^OLR*. EXECUTION IS R EGUN 

* AT LOCATION START, 
*INPUT- 

* * THE 

* * THE 

* * ^CO* 

♦CUTPUT- 

* * THE STATEMENT STRING 

* * THE SYMFQL TABLE 

* * C CCM 



STATEMENT STRING 
SYMBOL TABLE 



O w 1 ' ~ 



60 *£XTERNAL RE r -RENr^S- 

61 * * SUBROUTINES- 
6? * ROLRX 

67 * * OTHER PCRTRAM EHAS-S- 

f,k * NONE 

65 * 

66 *EXITS- 

67 * * NORHAL- 

68 * EXITS V T A A ""ALL TO THE ROL~Y POUTTHE TO 

69 * READ TN P"ASF it, 

70 * * ERRCRS- 

71 + OVEFLA°-BYPASSES PROCESSING , SFTS ER r OR WORD 
7? * IN FCOM, CALLS PHASE 17 VTA ROLRX. 
77 * SYNTAX- ERRORS DETECTED BY THI<- PHASE ARE 
7h * NUH n t f? S 36,77, 38,70, ifO , <+l , *♦? ,*f 3, 

75 * 

76 *TA?L£S/W0RK AREAS- 

77 * * THE STATEMENT STRING 

78 * * THE SYMPOL TABLE 

79 * * THE FORTRAN COMMUNICATION ARES 

80 * 

81 *ATTRIBUTES-NCNE 

82 * 

83 *NOTES- 

BU * THE SWITCHES USED ^v THIS PHASE FOLLOW. 1^ 

86 * NON-ZERO, THE SWITPH IS TRANSFER T . IF ?ERC, 

86 * THE SWITCH IS NDRHAL N 

87 * SWi-DI*ENSICNEO N«HE SUPSC c I c TEO 

88 * T NOT SUBSCRIPTED 

89 * SW*4-SICN ALLOWA^l^ 

9fl * N SIGN ALLOWABLE 

qi * SW6-P0TNTEP INSIC- FUNCTION ^ALL 

a? * T POINTER IN c IOE FUNCTION CALL 

93 * SW7-CI W ENSTCN£D K'AME 

9*4 * T NAME DIMENSIONED 

ac * 

gCj ***.***.*.*.********.** ***** ***.**.****.******* *****»**♦¥-* 

97 HONG M p X FORTRAN ** ASCAN I 

98_ A B S /Zer f - Q>-«tT 

99 * 



10Q * SYSTEM AND FCPTPAN EOUATES 

1Q1 



* 



10? HEMRY ECU ■ft*-?*' C-is^f MftxxHlj^ COPE SIZE 

1113 PHSI7 iou *+*3?0 MAXIMUM ^HASr SI 7 E 

ink OVERL EQU MEMRY-PHSI7 PHASES ?-29 START 

105 FCOM ECU OVEPL-?? ^qptpaN COMM. TABLE 

106 °HNT9 ECU FCO^-56 °HASE TABLE 

107 PCLRX ECU PHNT°-50 INTERPHASE CALL 

108 * 

109 * FORTRAN COMMUNICATION APE* 

110 * 

111 ORG FPC W FORTRAN COMMUNICATION AREA 
ll' SOFS PSS 1 START OF STRING 

113 ECFS BSS 1 ENO OF STRING 

il*t SCFST BSS 1 C TART OF SYMBOL TABLE 

115 ^CFNS BSS 1 C TAR7 CF KON-STHNT MOS. 

116 SOFYT BSS 1 START C SU n SC TEH«S 

117 SCFGT BSS 1 ^TART OF GENERATET TEM°S 

118 ECFST BSS 1 FNO 0^ SYMBOL TA5LE 

119 COMON BSS 1 NEXT AVAILABLE CO^^N 



SlITE 



120 

121 

122 
12* 
124 

125 
126 
127 
128 

12<3 
130 
tit 
132 
133 
lit* 
135 

136 
1.37 

138 

139 

mo 

l«4l 
142 
1^3 
\hk 
\k5 
1«6 
1*7 
1<»P 
149 
ISO 
151 
1*52 
153 

15«t 

155 

156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 

168 
IB" 
170 
171 
172 
173 
17ii 
175 
176 
177 
1^8 
17? 



CSI7E 
ERROR 
FN A HE 

SORF 
OCWO 

* 

* 

* 
» 
IOCS 

DPONT 
LOOMN 

ICCER 



BSS 
BSS 
BSS 
BSS 

BSS 

RSS 



1 TT 

PIT 
°IT 
?IT 

n TT 
n IT 

PIT 
n TT 
ctt 



ct7- qp COMMON 
OVERLAP EFROE 
PROGRAM NAME WO i 
PROGRAM NAME WD 2 
SUBR (-) OR FUNO (+) 
CONTROL CAPO WOPO 
TRAJS c tR TRACE 
ARITHMETIC T-ACE 
EXTENDED PRECISION 
LIST SYMBOL TABLE 



15 

Ik 

13 

12 

11 LIST SUBPROGRAM NAMES 
10 

q 



9SS 



LIST SOURCE PROGRAM 

ONE WOFO INT F GF p S 

PUNCH 

NONPROCESS ofOGRAH 

IOCS CCNTPOL CARD uiQRO 



SEE c HAS r ONc PC?' BIT PATTERNS 



RSS l 

BSS 2 

RSS 2 

BSS ?. 



REFINED rT L r COHN T 
^I^E OF INSKi-L OCMON 
IOCS CONTROL CARO £PROP 



2 SYSTEM LOADER USE 

END OF FORTRAN COMMUNICATION 
AREA 

HONG MPX PORTPAN ** ASGAN I 

CH^CK FOP OVERLAP EPRCF 
ORG CVERL C HASE ENTFV 



START 

* 
OVEEF 

ORGTN 



LO ERROR IP NO CVtRLAr £P^CR THEN 8 
BSC L OPGTN, - TO MOVE STRING. 



OFGA1 



BSI 

oc 



S 

STO 
LDX 

nnx 

LOX 

LOX 

LO 

STO 

MOX 

MOX 

MOX 

MOX 

MOX 



REAn AND GO TO NEXT PHASE 

ROLPX CALL DOWN PHASE 17 

13 NEXT PHASE NUMBER 

MQV> STRING NEXT TO SYMBOL TA°LE 



L3 

7_ 

I? 

II 
? 
1 
1 

2 

7 



EO^S 
SOPS 

* 1 

*_* 

1 

EOFS 

EOPST 


? 
-1 
-1 
-1 
0PGA1 

7 



END 


r 


START 




A DOR 





PAHGfc. 




NO. C 


;c 


END C^ 


END C 


!F 


NEXT 


W 


HOVE 


c 


OECR 


H 


CECR 


H 


r ECR 


N 


CONTIN 


TNCR 


T 



STRING AO0-E3S 
qf STRING ADDRESS 
F ME Y T INSTRUCTION 
CF MOVE. '"CriFIftaLt 

WORDS INCLUSIVE 

STRING Anne 

SYMBOL TA Q LE ADORES 
CP.n TO MOVE 
TRING NEXT 70 SY* TP 
OVF TO ADD D ES^ 
CVE FPOM A0CRESS 
0. OF fc'ORPS TO MOVE 
UE 
tOUAt 1ST STMNT °T 



* 



INITIALIZE IN^UT AND OUTPUT 



SEITt 



180 

1S1 
18? 
18 3 
18* 
185 
186 
137 
188 
189 
190 
191 
19? 
19? 
19* 
195 
196 
197 
198 
199 

2on 

201 
202 

20? 
20* 
20^ 
206 
207 
208 
209 
'10 
211 
21? 
213 

21* 

215 

216 

217 
218 
?19 
220 
221 
222 
??7 
22* 
2?5 
??6 
??7 
228 

229 
?30 
231 
23? 

233 
?3* 
235 
236 
237 
?3? 
23° 



STRING POINTERS 



* 



XY1 



LOX 

nnx 

STX 
MDX 
STX 
MDX 
STX 



Ln 

AMD 
SRA 

STO 
STX 

STO 

STX 

STX 

9SI 

LO 

EOR 

esc 

1SI 
MHX 



XY? 

ICSV1 






MV1 



LO 

r OU 

SRA 

S 

DSC 



I? SOF 1 ? 

? -1 
L2 CKS? 1 

2 2 
L? XY?^ 1 

2 -1 
L? CKS"" 1 



L 

L? 
1 
L 

1 

L 

L 
L 



START O c STRING ACnP 

cecr °y i 

STORE A^ CSF TARLt ADDRESS 



ASF TA n Lf RE r ERENCE 
STORE FOR ASF ARGUMENT CM 
IHITIALIZF TO S r AN STATEMENT 





sn?F 

2 

XV 27 

XT1 

XT1 

NXTT 

IOSV 

10 sv 

MOVE 
-1 

soon 

XY2, 
MOVf 
XY27 



STMNT 10 WOR 

p FXTRACT STMN 

RIGHT JUST IF 

1 STORE AS INS 
INDEX REG 1 
AOOR OF STMN 
n AOOR OP NEXT 
? INDEX RcO 2 
1 INDEX REG 1 
1 PR TC CUT PUT 
*TMNT 10 WOP 
1 FXTRACT AND 
t PR IF NOT A 
1 OR TO OUTPUT 
1,-1 ADJUST TO £Y 



wnpf r OUNT 



n 
T 
v 

TRUCTION AOHS 
TEM°0"ARY 
T ID WOPO 

STMNT ID WORD 
TE M PCS ARY 
TEM°0RARY 

1 ELEMENT 
H 

FEVERSE 9IT 15 
M!j M nE c cO STMNT 

ONE r LEMENT 
FLUOE STMNT NO 



CHE 1 **' FOR END STATEMENT 



XY3i> 



L *-•* STMNT ID WD. MODIFIABLE 

XV 2 1 LAPEL PREVIOUS ADDRESS 

11 PIGHT JUSTIFY STMNT TYPE 

TEND END STMNT CONSTANT 

L XY5,7 at? XF NOT END STMNT 

REMOVE ASF TADLE IF "RESENT 



1,-1 DECR ASF TARIE C0UNTE p 
PR IF ASF TAFLE 
on IF NO ASF TARL^ 
END OP STRING ADOF 
^TART OP STRING ATOP 

1 ASP TA9LE COUNT 

AODR OF NEXT INSTRUCTION 
VC)\Ji FROM ADDRESS 
♦MODIFIAPLE 
MOVE TO ACD^tSS 
END OF STRING AOOPESS 
ADOR OF NEXT INSTRUCTION 
RANGE OP MOVE. MO^I^I A "L - 
NEXT WORD TC MOVE 
REMOVE APITH STMNT FUND TB 
INCR MCVt. FROM ARrR 
TNCR .MOVE TO A DDR 
INCR MOVE COUNTER 
ft R TO CONTINUE HOVE 
END C c STRING XF2-1 

NEW END OF STRING ADD=> 
- t OOP 



MDX 


L 


CKA^ 


MDX 




* 1 


MDX 




XY34 


STX 


-> 


EOFP 


LD 




SOFS 


A 


L 


CKAS 


STO 




* 1 


L^X 


LI 


*—* 


LDX 


!-> 


SO c E 


S 


L 


EOF^ 


STO 




* 1 


LOX 


L3 


*- * 


LD 


1 





STO 


7 





MDX 


1 


1 


MDX 


? 


1 


MDX 


7 


1 


MDX 




MV1 


MDX 


o 


-1 


STX 


f 


EOFS 


MHX 




OVER 



S^ITt 



2kf] * 

?m * CONSTANTS AND WOR'< AREA 

"?W? * 

?i*7 XTi OC INDEX REG 1 TEM*O r A'Y 

2Hh S07FF OC /07FP STMNT TYPF MASK CONSTANT 

?if5 TEND DC /0? C ND STMNT CONSTANT 

?i»6 c RNO DC ERROR NUMBER TEM c rR*RY 

?<*7 SOTOi OC /0001 STMNT NO. INPR PIT MASK 

?«*8 SP80? OC /P803 STMNT WQPn COUNT MASK 

2U9 S0020 00 /0020 CEPlNtO PIT CONSTANT 

2«5i * CH£ r K FOR STMNT TEP *IN£TOR 

252 * 

25 7 YY13 LD 10 NEXT STMNT WORT 

251, OSC L XY7," 7 P R IF NO TERMINATOR 

?55 YYli RSI L PUT P.R TO MOVE 1 WO TC OUTPUT 

?q 6 CFCTN LD I I0SV2 STMNT 10 WITHOUT WO COUNT 

?57 AND L S*"8n? 7rR0 WO^O COUNT a ITC 

258 STO XT<^ STMNT 10 WORT TEMPORARY 
?qq 3TX ? XT 3 TNOEX REG 2 TEMPORARY 
?Ef) LD XT'? NEXT STMNT IT WH AODRESS 
2&1 S IOS^'2 CURRENT STMNT in wo AOD°ES 
?«,? SLA 2 POSITION TO STORE STMNT CN 
263 A XTi» STMNT in W/C WORC COUNT 
?6t, STO I I0SV2 CORRECTED ST*<NT ID WORD 
2P,q MOX XY2? R TC MOVE TT NEXT ^TMNT 

266 * 

267 * CONSTANTS AND WORK AREA 
?5« * 

■?6R XT 3 DC INDEX REG 2 TEMPO? A^Y 

?7H XT<t OC ^TMNT 10 WORP TEMPORARY 

271 ERIO OC /A008 ERROR IP WOPP 

27? * 

273 * REPLACE STATEMENT WITH ERRO^ 

27«, • 

275 XY7 LOX L"> *-* STMNT ID WORD ADDRESS 

9 y^ ATEPR SOU XY7 LAREL LAST INSTRUCTION 

277 ICSV2 ~0U XY7 1 LAREL LAST INSTRUCTION ACP 

278 * *MOOIFIA«LE 

279 LP 2 CUT°UT STMNT 10 WCl n 

?80 EOR FIV r REVERSE STMNT NO. INOR 9TT 

281 RSC L * 5>£ ^R IF NOT A NUMP c PEO STMNT 

?B2 LP e IV? STMNT NUMBERED INOR 

283 A ERIP SET BIT I s ON ANO INC 5 ? CNT 

281* STO 2 REPLACE STMNT 10 WOPO 

286- MOX 2 1 TNCR STMNT POINTE c 

286 MOX * 7 pn TO SET UP £P*OE NUMBER 

287 LO L ERIP r RROR ID WORD 

288 STO 2 STMNT TO WORD 
?B9 LO L ERNC ERROR NUMBER 

2qo STO 2 1 c TORE ON OUTPUT STRING 

?9i HOX 2 2 INCR STMNT POINTS* 

?q? XY2' LOX LI ♦-» NEXT STMNT IP WO^r AOORESS 

?93 NXTIO EOU XY2? 1 LAREL FOP RRFC£DI K G ADORES 

?Qk * *MOOIRIAPLE 

?95 3SC L XY1 PR TC SCAN NEXT STMNT 

296 * 

2R7 * CHfcPK FOR AN ARITHMETIC STATEMENT 

"'98 * 

790 XY5 S TART^ ARITH STMNT CONSTANT 



;eitj 



7Q0 BSC L *Y27,Z q R TF NOT ARITH STMNT 

701 LDX 7 76 ERROR M)M n EP 3ft 

30? STX L7 ERNC SET UP ERROR NUM<3 L R 

707 LO i STMNT ID WORH 

70% BSI GETID n R TC GET SYMBOL T SL 10 WO 

30? HSI L TESTV ^R TO TEST \/fi"IA^LE NAMES 

^05 LO "< SYMOCL TABLE ID WCR^ 

307 OR L S0G?G SET DEFINED D IT 0* 

■»08 STO 7 -ESTORE ID WORD 

309 9SI L NAME P R TO CHK NAME DI^ENSIONIN 

310 LD I SW1 TEST DIMENSIONED NAME SU^S 

311 BSC L XY7,7 ?P TP NOT SUBSCRIPTED 
71? * 

313 * SCON ARITH EXPRESSION IF EQUAL SIGN 

■?iu * 

315 XY5A LD 10 NEXT STMNT WORD 

715 S EOSCN EOUAL SIGN CONSTANT 

317 BSC L XY7,7 n R IF NOT EQUAL SIGN 

318 RSI L MOVE1 p R TC MOVE CN C ELEMENT 
3IB BSI L ARITH r>p jq ARITH SCAN 

7?0 MOX XY13 °P TC CHK FTP SEMTOCLON 

7?1 * 

7?? * CHECK FOP IF STATEMENT 

327 * 

3?** XY?3 S TIP T p STMNT CONSTANT 

7?c esc L VY? 6- ,/ PR IF NOT IF STMNT 

3?5 LOX 7 *7 ERROR NUMBER 77 

3?7 STX L7 ERNC SET UP FR^OR NUMBER 

3?8 LO IFCP IF OPERATOR 

329 BRI CHECK n R TC CHk' STRING CVERLAP 

730 * 

331 * CHECK FOR LEFT PARENTHESIS 

33? * 

337 LO 11 NEXT STMNT WORD 

734 S ULP LEFT PARENTHESIS CONSTANT 

335 BSC L XY7,7 PR IF NOT LEFT PARENTHESIS 

33^ BSI MOVE1 °R TC MOVE ONE ELEMENT 

337 LOX 3 7ft ERROR NUMBER 38 

778 STX L7 £RNC SET U D ERROR WO^h 

739 RSI L ARITH RR TC ARITH SCAN 

34 LOX 7 77 ERROR NUMBER 37 

741 STX L7 ERNC SET l'P £F*?09 WO"0 

74? * 

?U7 * CHE p K FOP -IG4T OARENTHESIS 

7%% * 

745 LO 10 NEXT STMNT WORD 

*fc6 S U pc RIGHT PARENTHESIS CONSTANT 

747 BSC L XY7,7 OR IF NOT RIGHT °A? r NTHESI 

71,8 9SI MOVE1 n R TQ MOVE CUE ELlM c NT 

349 * 

750 * CHECK FOR COMMA O^tPATOR 

751 * 

35? LO UCMA COMMA C D ERATOR CONSTANT 

753 BSI CHECK PR TC CHECK STRINC OVERLAP 

754 BSI L LIST °R TO CHK STMNT NC. LISTS 
7qc (.0 L CNT ^TMNT NO. COUNT 

75ft S C IV~ n ECIMAL FTyr 

">57 BSC 1 XY?,7 PR if NOT C IVE 

75s MOX XVi^ 9R TO CHI*' EOF SEMICOLON 

759 * 



SEITE 



360 


* 






CONSTANT! 


; AND WORK ftRE* 


361 


* 










36? 


TaRTH 


DC 




/00-/02 


ARITHMETIC If 


36^ 


EGSGN 


on 




/0£ 


OPE D ATOP 


3F>4 


FIVE 


nc 




5 


rECIMAL FIVE CONSTANT 


366 


TIF 


nn 




/0F-/00 


IP in 


7 66 


IPOP 


DC 




/14 


TF OPERATOR 


■<67 


ULP 


dc 




/10 


OPERATOR 


368 


UR D 


oc 




/02 


OPERATOR 


"*69 


ucma 


or 




/I? 


, OPERATOR 


37 n 


*****.************************************«****•** + * 


171 


* 






THIS SUBROUTINE G^TS THE ID WORD 


77? 


* 






PRC M THE 


SYMBOL TAPL r . THE ENTRY TS 


37 3 


* 






A BSI IN' 


ST&UCTION TO THE LA^el GETIP 


374 


**************************************** ***-»***** + 


^76 


* 










376 


* 






GET TD WORD 


377 


* 










378 


GET ID 


nc 







RETURN ADDRESS 


379 




BSC 


L 


XY7,- 


FR IF NOT SYMBOL TBL p T 


380 




AMD 




SOl^F 


EXTRACT TABLt DISPLACEMENT 


381 




SLA 




7 


EFFECTIVE MULTIPLY ^Y h 


38? 




STO 




GET1C 


TEH°ORARY STORE 


383 




SRA 




2 


"ZSTO^E - RITHT JUSTIFY 


384 




S 




GETiC 


-3 * DISPLACEMENT 


385 




A 


I 


SOFST 


START C p SYHPOL T P L A DOR 


3 86 




STO 




* 1 


ADOR OF NEXT INSTRUCTION 


-*87 




LDX 


L* 


*-* 


INDEX 3 SYNBOL T^ ft COP 


388 


GET1C 


EOU 




»-i 


MOOIFIARLE 


389 




HOX 


3 


r 


ADJUST APHRE C S 


"<90 




LD 


7 





SYMBOL TABLE ID WRO 


391 




BSC 


I 


GETIC 


PR TO EXIT GETID SUFROUTIN 


39? 


* 










393 


* 






CONSTANTS AND WORK AREA 


"*94 


* 










395 


SG1FF 


DC 




/07FF 


SYMBOL T°L POINTER MAS* 


396 


* 










397 


************************************** ************ 


398 


* 






THIS SUB 


ROUTINE PLACES THE ITEMS 


399 


* 






Clt TH£ NEW STRING. THE ENTBV TS A 


400 


* 






1ST INSTRUCTION TO THE LA&EI PUT. 


401 


************************************************** 


un? 


* 






3TOPE ACCUMULATOR ON NEW STRING 


40"* 


* 










404 


PUT 


DC 







RETURN ADDRESS 


405 




STO 


•7 





ONE ELEMENT TO NEW STRING 


4H6 




MOX 


*) 


1 


TNCR. NEW STRING °CINTER 


407 




BSC 


I 


PUT 


PR TC EXIT PROM PUT 


408 


************************************************** 


i+09 


* 






THIS SUP* 


ROUTIME CHECKS FOP ROOM 


410 


* 






BETWEEN 


THE TWO STRINGS. TW^ ENTPY 


411 


* 






IS A "SI 


INSTRUCTION TC THE LABEL 


41? 


* 






CHE^K. 




4i 7 


************* 


************************************* 


414 


* 










415 


* 






CALL PUT 




416 


* 










417 


CHECK 


nc 







RETURN ADDRESS 


418 




BSI 




PUT 


a P TO MOVE C^'F ELLMFNT 


419 


* 











Sf.ITE e 

420 * CHK POR XP1 GREAT 1 : 13 THAN XR? 

i+21 * 

k?? STX 1 CKTfM INDEX REGIST? P i TEMPORARY 

4?3 LO CKTEM ADQR OF INPUT STRING 

424 STX ? CKTEV INDEX REGISTER ? temporary 

4?R S CKTE* C^OR OF OUTPUT STRING 

h?h 3SC L CKlf p R IF STRING OVER1 to 

k?7 BSC I CHE^K ER TO EXIT 

4?8 OKI HDX L £RROP,l Si£T OVERLAP ERROR ON 

4?R BSC L CVEPP p R TO PO AND GO Tf NEXT PH 



* 



430 

£»31 * CONSTANTS AND WORK AREA 

437 » 

<*37 CKTEM 00 INDEX REG TEMPORARY STOR~ 

434 * 

£♦36 * THIS SU Q ROU T INE OUTPUTS ONE ELEMENT 

£,37 * AND MOVES THE POINTER. THE tNTRY IS 

438 * A a< ^I INSTRUCTION TO the LAc~l MOVE1 
r,3Q **#.*******+*****#*.*.ij. **#*******»*»****#************ 

440 * CALL PUT 

kkl * 

44? H0VE1 TO RETURN ADDRESS 

447 LO i NEXT STMNT WORD 

444 BSI PUT D P TO HOVE ONE FLLMSNT 

445 HDX 1 1 TNCR INPUT POINTED 

446 BSC I MOVE1 BR TO EXIT 

448 * THIS SURROUTI IE OUTPUT UNDER OONTRCL 
44B * OP XR3. THE ENTRY IS A RSI TNSTRUO. 

45fl * TO THE LAPEL OUT. 

j^j *»***** + ****#****** ****#**♦*♦****-'? **************** 

4<5? * CALL w OVEl 

454 OUT DC RETURN ADDRESS 

i+qp RSI MOVE1 D R TC MOV? ONE ELEMENT 

456 HDX 3 -1 r ECR MOVE COUNT 

457 HDX OUT 1 °R TO OUTPUT ONE MORE 
£+58 BSC T OUT EXIT IF COUNT IS 7£R0 

l»*;q ******♦.*¥*#.*.****•**********♦**************»******** 

460 * THI^ SUBROUTINE HANDLES THE NAME 

i»61 * AND THE SUPSCPIPT IF THERE IS ANT 

462 * SHOULD RE ONE. THE ENTRY IS A RSI 

4*3 * INSTRUCTION TO THE LA°EL NAME, 

464 ************«*¥*********************************** 

46 c * 

466 * CALL PUT 

kk7 * 

468 NAME 00 PETU'RN ADDRESS 

46° LD 10 NEXT STMNT WORD 

470 BSI out p R TC OUTPUT ONF ELEMENT 

471 RSI GETID °R TO GET SYMBOL T BL T D WD 
!,7? STO SVID TO WCPO TEMPORARY 

^73 AMD S13Q0 EXTRACT DIMENSION aTTS 

f + 74 BSC L NAME 1,7 5R IF NOT DIMENSIONED NAME 

475 HDX 1 1 INOR STMNT °OINTEF 

i<76 STX 1 SW7 C£T DIMENSIONED NAM- $W ON 

477 NAME3 SLA 16 PLEA* ACCUMULATOR 

47fl STO SW1 7£RD DIMENSION SUPSO INDR 

i»7q NAMR3 BSC I NAM? PR TC EXIT 



ITE 



480 
481 
482 
**83 
484 
485 
4 86 

4 87 
488 
489 
490 
ugi 

492 
493 

494 
^qs 

496 
4P7 

498 
499 

500 

501 

so? 

503 

5 04 
SOS 
506 
5 07 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
5?0 
521 
52? 
523 
524 
5?5 
526 
527 

F5>8 

5?Q 
530 
531 
532 
53' 
5^i+ 
535 
536 
53? 
578 
53° 



* 



s»£S r T DIMENSIONED NAME SWITCH 



NflMPl 



NAHE4 

NAMF2 

NAME5 
NAME 6 
NAME? 

SWi 

SW7 

S18O0 

MP3 

MP2 

NP1 
HP 9 

svio 

* 
* 
* 
* 
* « * # * 

LIST 



SLA 

STO 

MUX 

LQ 

S 

BSC 

LOX 

BSI 

MDX 

S 

BSC 
LHX 

MDX 
S 

BSC 
LOX 

nnx 
s 

BSC 
LOX 
MDX 
STX 

nnx 



16 
SW7 

1 


NP^ 

NAM? 2,7 

15 

OUT 
NAM^T 

NP2 

NAME5,7 

11 

N A M E u 

NP1 

NAME'S? 

7 

N A M P 4 

N°0 
NAVF 

NAME 

SWl 

NAMF 



7,7 



CLEAR 
RESET 
TNCR 

NEXT 
■» DIM 
°R IF 
"=£T U 
°R TO 
PR TO 
7 DIM 
PR IF 
SET U 
OR TO 
1 OIK 
PR IF 
SET I 
n R TO 

r oik 

PR IF 
SET U 
a R TC 
SET S 
C R T 



Acru 

DIME 
STHNT 
STUNT 
ENSTC 

NOT 
P OUT 

MOVE 

NHF'M 

ENSIO 

NOT 
P OUT 

OUTP 
ENSIC 

NOT 
P OUT 

OUTP 
ENS in 

NOT 

p out 

OUTP 

WITCH 
EXIT 



MUl ATO 

NSTONE 

POINT 

wnpn 

M OP£R 
7 TIME 
PUT S c 

ir OU 
ALI 7 E 
N r p ER 
2 niME 
PUT SP 
UT 

N CPE* 
1 "IMF 
PUT SP 
UT 

N CPE p 
O DIME 
PUT SP 
UT 

1 ON 

FOQH 



H NAME SH 

re 

AT OR CON 
N C TCN 

ACE IN XF T 
T^UT STPIN 
SWITCH 1 

ATO" CCN 
NSION 

ATE IN XR' 7 

ATOP CON 

N^ION 

ACc IN XP? 

AT OR CON 

N c ION 

ACE IN XR7 



NfiMr 



CONSTANTS «NO WORK AREA 



oc OIMENSIONEO ma 
HC DIMENSIONED MA 

or. /I800 ^im^n^io^ indi 

HO /IE 3 OPERATOR CO 

DC /1C-/1E 2 OPERATOR CO 

DC /1A-/1C 1 OPERATOR CO 

DC /18-/1A OPERATOR CO 

HC *-» SYMBOL TC n L£ I 

THIS SUBROUTINE CHECKS T 
NUMBER LIST OF IF AND GO 
ENTRY IS A RSI INST&UCTI 
LAPEL LIST 



**•¥ * 

DC 
SLA 

STO 



SO SW 
ME SWITCH 
CATCR MASK 
NSTANT 

NSTANT 

NST«NT 

NSTANT 

D WCRR TEM E 
** ** *»* * *+ *» 

HE STATEMENT 

TO ETATEMENT 

ON TO TH t 





16 

CNT 



RETURN ADPRE C S 

r LEAR ACCUMULATOR 

7ER0 COUNT OP WOPOS OUTPUT 



LIST3 



LD 
RSI 

AND 
EOR 
BSC 
RSI 

MDX 



LP 



CHK <"0° NON-FORMAT STMNT NUMBER 

NEXT STHNT WORD 

GETIC PR TO GET SYMBOL TA^LE 10 
3P F np REMOVE "EFFPENCEO NO. INCP 
S0200 FLIP STHNT NO. INFR 3IT 
LIST?, 7 BR IF NO ST V NT NU^RcR 
MOVE1 °R TC MOVE 1 WO TC OUTPUT 
CNT,1 INCR WOPOS CUT PUT COUNT 

CHECK FOR COMMA CHARACTER 



1 



NEXT STHNT WCPP 



SrtITi 



in 



54 

54? 

547 

54<4 

545 
546 
547 
548 
549 
550 
551 
5^? 
55"* 
552* 
555 
566 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
667 
^68 
569 
570 
571 
57? 

C77 

574 

575 

5^6 
577 
57* 
579 

5*0 
551 

582 
687 
58<t 
5 85 
686 
587 

5 88 

6 89 

590 

691 

*93 
594 
695 
596 

697 
698 
599 



BSC 
MOX 

LIST2 IHX 
STX 

LIST5 9SC 

LTST4 MOX 

RSI 

MOX 



LCM 

LIST**, - 
LISTF 



COMMA CONSTANT 
D R IF COMMA 
5" TO EXTT 



M 



T yp rpf?CR ^7 



L 
L 



n^ TNDiX REG 3 4 7 

ERNO SET U° E^RO? Worn 

RET'iRN 

LIST EXIT FRO* LIST CH C CK SURF 

0NT,1 IMCR. WORD OUTPUT COUNT 

MOVFj °R TO CUTOUT ONE WORD 

LIST 1 p P TO GET SYMBOL TRL 10 wn 



CNT or 
LCMA OC 

S6FHP 00 
S0200 Of 

4 + 4*4.4.4.4.4.4444 

* 



CONSTANTS AMD WO^K AREA 





/12 

/rr 

/0? 

THI 
ALL 
SOfl 

TO 
1 P 
INt! 
STR 
IS 
THE 
A N 
SIR 



o^ 

no 

* $-*•**■** 

S SU Q RO 
flPITH^ 
K'NEO. T 
TMp LA9 
CIHTS A 
FX REGI 
TNG. TH 
MQVEO r 
LEFT S 
> r ST GAL 
ING AS 



NO. 

oomm 

SYM9 

STMN 

•**** 

UTIN 

FTIC 
HE £ 
r L A 
T TH 
C TER 
E AR 
s?OM 
TRIM 
L TA 
NEED 



OF WDS 
A CHAF 
CL TAP 
T NUMn 

4 if If**, if. 

E CHEC 
EXPPE 
NTRY I 
PITH. 

£ RIGH 
2 POT 
ITHHET 
THE "I 
G AS I 
RLE TS 
EO. 



OUTP 
ACTEP 
LE 10 

EP IN 
* * * * * 

KS AN 
SSION 
SA9 

INPEY 
T STR 
NTS A 

10 EX 
GHT S 
T IS 
INSE 



UT CGU 

CON^T 

WORD 

OR MAS 

* + * * * * 

?L1E 
S TO 1 
SI COM 
R r GIS 
ING AN 
T TH~ 
°^£SSI 
TRTNO 
CHECKS 
^T r D I 



NTE.'E 

ANT 

MASK 

K 

RS 

HAND 

TEP 



L -. r T 

ON 

TO 

p. 

N THt. 



If. » * 4 if «. * Jr 4.4.4, if 44. 4 4 



INITIALIZE TO HANOLt FXP9ESSI0NS 



ARITH 



ATH3 



ATH12 



00 

SLA 

STO 

STO 

STO 

STO 

STO 

LOX 

STX 

LO 

STO 

LO 

9SC 

S 

9S0 



MOX 
RSI 
SLA 

STO 
MOX 




16 

PAR 

SW4 

SW5 

CALI.N 

ASFN 

1 

PARNC 
NXTID 
ATHji. : 


ATH1, ; 

ARP-N 

ATH?,Z 



SURR ENTRV POINT 
CLEAR ACCUMULATOR 
CLEAR FAPENTHESIS COUNTER 
CLEAR SIGN AILOWAPLE SWITC 
CLEAR °T INSIDE c l.'NCTION S 
FUNCTION OALL INDICATOR 
6PITH STMNT FUNG INDICATOR 
SET INDEX REG 7 1 
INITIALIZE D ARAHETER COUNT 

AOOR OF NEXT STMNT TO WORP 

NEXT ST^NT WORD 

PR IF NOT OPERATOR 

LEPT PARENTHESIS CONSTANT 

p° TF NOT LEFT PARENTHEST C 



OAP 



L 
L 



OAF»1. 

mov:i 

16 
SWA 

ATH7 



n AR 
TNCR 



1 

PARENTHfSIS r O'NT 
°R TC MOVE ONE WO TC OUTPIJ 
PLEAP ACCUMULATOR 
NORMALIZE SWITCH t 
n R TO CHK NEXT ETs^NT WO n " 



SEITE 



11 



son 

601 

60? 
6 03 
604 
605 
606 
607 
608 
609 
610 
611 

61? 

617 
614 
616 

616 
617 
*18 
619 
620 

S?l 

63? 
6?? 

62*4 

6?5 
6?6 
6?7 
6?8 
6?° 
6^0 
631 
67? 

673 
634 

63^ 
676 
677 
638 
639 
640 
641 
64? 
64^ 
?44 
645 
646 
64 7 
64 8 
649 
660 
661 
65? 
653 
654 
655 
656 
657 
658 
659 



ATH? 



ATH4 
ATH11 

ATH1 






aTH6 






ATHP 



LP 
BSC 

m 

S 
BSC 

s 

BSC 



LO 

BSI 
HDX 
STX 
MDX 
3T0 

RSI 

LO 
BSC 
LD 
BSC 



LO 

BSC 

LP 

S 

BSC 

tn 

AND 
BSC 
EOR 

BSC 

LO 

BSC 

LO 

S 

BSC 

LO 
BSC 
S 
BSC 

s 

BSC 

s 

BSC 

s 

BSC 
LB 

r» 

BSC 



MDX 

LO 

BSI 

HOX 
BSI 



1 

L 
I 
L 



SWh SIGN ALLOWABLE SWTTCH 

ATE99,7 nr» jp S XGN NOT ALLOWABLE 

NEXT STMNT WORD 

APSTN PLUS SIGN CONSTANT 

ATH4, - "R IF PLUS SIGN FOUND 

AMSON MINUS SIGN CONSTAM 

ATERR,Z q R IF NOT MINUS SIGN 

CALL PUT U- OPERATOR 



L 
L 



L 
L 
L 
L 

L 
I 



L 
L 
I 

L 



UMN^ 

PUT 

1 

SWf4 

ATH 3 
S N A w ?- 
NAM C 
SW1 
ATNP ,7 

SW7 
ATHf, - 



U- OPERATOR 

PR TC p UT ON OUT p LT STRING 

TNC1 STMNT POINTED 

SET SWITCH 4 ON 

PR TO CHK NEYT ST^NT WCRH 

SAVE NAH£ TN SNflMf 

PR TC CMK NAME PIMENSIGNIN 

DIMENSIONED NAME c U n 30R *M 

"R IF NAME NOT SUPSORI C T[;0 

CIMENSIONEO NAME SWITCH 

cr TF NAMF NOT HIHENSIONcD 



CHPCK cqr CONSTANT 



SVID 
ATHf, Z 



ARPEN 
ATH7, - 
SVIT 

S01 c 
ATH6, - 
H00 c 
ATH6, - 
SOP** 
XY7, 
FNAHE 
S N A M £ 
XY7,7 



ATH8, - 

APSGN 

ATH C , - 

AMSGN 

ATH9, - 

ASLH 

ATHQ, - 

AST-R 

ATHin,2 

1 

AS* 

ATH«,7 

CALL PUT 

2 
AEX° 

PUT 

ftTWll 

M0VE1 



SYMBOL TABLE ID WOR" 

PR TO CHECK FOR SEMICOLON 

NEXT STMNT WORD 

LEFT PARENTHESIS CONSTANT 

D R IF LEFT PARENTHESIS 

LOAP ID 

PHK IF A~TTH STMNT 

PR IF API T H^TIC ^THNT 

RETURN IF EXTERNAL 

TEST FOR SUBF OP FUNCTION 

BRANC" IP SUBROUTINE 

LOAD PROG NAME SYC TBL D T 

COMPARE WITH FUNCTION °T 

PR TO ERR I F FNAMt NE SNA* 

NEXT STMNT WORD 

pp IF SEMICOLON 

PLUS SIGN CCNSTANT 

PR IF PLUS SIGN 

HINUS SIGN CONSTANT 

PR IF MINUS SIGN 

SLASH CONSTANT 

PR IP SLASH 

ASTERISK CONSTANT 

RR IF NOT ASTERISK 

NEXT STMNT WORD 

ASTERISK CONSTANT 

PR IF NOT ASTERISK 



** 



OPERATOR 



MOVE POINTEP BY 2 
** QpcRATOR 

OR TO D UT ON OUTPl 
g? TO TAG SWITCH u 
PR TO ONE WD TO 0UT°UT 



STRING 



SETT- !■> 



660 
661 
66' 
66 3 
66<+ 
665 
666 
667 
668 
669 
670 
671 
67? 

67<* 
675 

676 
677 
67S 
67Q 
690 
681 
68? 
683 
59m 
686 
^86 
687 
688 
689 
690 
691 
69? 
693 

69«4 
69=5 

696 
697 
698 
69o 
700 
701 
70? 
703 
70*+ 
705 
706 
707 

708 
709 

710 

711 
71? 
713 
71*» 
715 
716 
717 
718 
7iq 



ATH8 



* 

* 

PAP 
SMk 
SW5 

ARPEN 

CflLLN 

PflRNC 

ASFN 

S0190 

H0090 

ATH7 






A T H 1 5 



* 
ATH19 



ATH17 






MDX 

m 

RSC 
RSC 



or 
dc 

DC 

on 
oc 

DC 

dc 

nc 

DC 



RSI 
STV 
MDX 



in 
s 

RSC 

LD 

RSI 

SLA 

RSC 

RSC 

LP 

AMD 

RSC 

i_n 

on 

STO 



Lnx 

MDX 

STX 

LD 

S 

RSC 

STX 

LD 

A 

STX 

S 

RSC 



LD 

S 

STO 



L 
L 



13 
3 
3 

L 

I 



ATMtl 

=>A5 

AT 

API T h 



PP,Z 



n R TO TAG SWITCH h 
PARENTHESIS COUNT 

°R IF NOT 7PPQ TC S?T ERRC 
PR TO EXIT r POM APITH SU q R 



CONSTANTS AMD WnRk' AREA 

o parenthesis count 

SWITCH u - «?TGN ALLGNARLE 

POINTER INSIDE RJNC CALL S 

/10 LEFT PARENTHESIS CONSTANT 

FUNCTION CALL INDICATOR 

PARAMETER COUNT 

ARITH ST^M PUNO TN n TCATCP 

/01 Q ARITH STHNT MASK 

/OQPQ FXTERNAL ST*NT MASK 

CALL CHECK C OPERA TO D 

ACALL C OPERATOR 

CHECK CHECK FOP OVFRLA° 

SW C SET SWITCH 5 ON 

CALLN,1 CALLN CALLN 1 

CHK ^09 LEGAL SU9 D ^CG"AW MA^E 



SNAME 

p N A H E 

ATEPP,+- 

SNAMr' 

GETTP 

3 

ATH19,C 

ATH17, Z 



S R E ? p 

ATF' 



SO 0* l? 





* V 1 H 7; 

* V 1 M 3 

* V 1 M 3 



•P., 7 



IS IT A PEFEPENPE 

»TO THIS PROGRAM 

YES - ERROR 7 6 

NAME 

GET SYMBOL TARLl T D 

Sl»e a FOGRAM NAME RJT 

PR IF STMNT FUNCTION NAM: 

PR IF SUBPROGRAM NAME 

SYMROL TA^LE ID WCR" 

LEGAL SURPROCRAM *4HE 

n P TO SET UP FPPD^ 

SYMROL TARLE ID WCRH 

S'JROROGPAM INDICATOR PIT 

"ESTO°E SYMOOL T P L ID WO^ 



WDRn 
TO SIG 



MASK 



* V i M 7 

*V1M3 
*V1M3 
*V1M3 

* V 1 M 3 
*V1M3 



XR2 ? LESS THAN XR1 

IOSV? T S THIS THE NAME 

1 *OF THE STATEMENT 

*+l *JUST RE IMG 

»-» 'LOOKED 

SNAME *AT 

ATEPR,+- YES-EPROP k? 

ATE*P INDEX REG ? TEMPORARY 

flTEMP XP? CONTENTS-OUTPUT STPING 

ATWC TNCR °Y ? 

ATE^c INDEX REG 1 TEMPORARY 

ATEHP ADDR OF INPUT STRING 

CK1,- C R IP GVEPLAP ERRCR 

OPEN STRING 2 WORDS 



ATH1 U 
A T E " n 
* 1 



NEXT STMNT ID WDR r ADDRES C 
CURRENT STMNT ADDRESS 
''DDR NEXT INSTRUCTION 



7?0 LOX L3 *-* «?ANG£ - MC. WHS Tf MOVE 

7?1 * ♦HOOIFIAPLE 

72? MOX 1 -? EEC 5 ? OURPENT STMNT ADORERS 

723 STX 1 ATH1 R NEW CURRENT C TMNT ATOP 

7?^ ATH1A LP 1 ? NXT WD TO MOVE 

7?5 STO i G C°£M ST°TNG 2 WOR°S 

72* Mnx 1 1 INC 5 ? STMNT MPVP PCINTEP 

7?7 Hnx 3 -1 CECR NC. OF WORDS TO HOVc 

728 MOX ATH1A n R TO CONTINUE M 0VE 

729 LOX LI *-* ^ET UP MEW STMNT c OINTEP 

730 ATH13 EHU *-l v OOIFIAOLE 
7 31 * 

732 * p UT PAP,c>ARNO AND AS^N IN THE 

733 * NESTt D CALL TJ^LE 
73^ * 

775 LOX 13 ATH1" 1 A^OP OF NEXT STMNT 10 WOT 

73f> MOX 3 -? OECP °Y ? 

7?7 STX 3 ATHi(4 1 AHOR NESTED TALL TAPLE 

738 LP ASFN ARITH STMNT HJNO NAME 

739 STO 3 1 TALL TAOl r 

7e»0 LP °AR PARENTHESIS COUNT 

7M SLA 8 

m? OR PARNC 

7U3 STO 7 i 

7f*i+ LO SNAMF 

7«*5 STO ASFN 

7U6 LPX 3 1 

7%7 STX 3 PAP 

?U8 STX "* PARNC 

7<+9 3SC I ATH1? MOVE ANOTHER WOPO 

750 * 

7M * CONSTANTS AND WO»K AP£A 

75? * 

753 AFSGN 00 /0<+ 

7 5*t AHSGN OC /06-/0* 

75* UMNS OC /?0 U- OPERATOR 

756 SNAME 0!" LAST NAME 

757 ASLH DC /09-/06 / — 

758 ASTER DC /0C-/08 *-/ 

759 ASK OC /OC * 

760 AEXP DC /OA ** OPERATHR 

761 ACALL DC /?E C OPERATOP 

76? ATEMP DC INDEX REGISTERS TFMFO»«PY 

763 ACOMA DC /12 » 

76it ^RPC DC /02-/12 -, 

76 c: S0E7F DC /RA6E LEGAL SUBPROGRAM TO MASK 

766 ATWO DC 2 PECIML TWO CONSTANT 

767 S0080 OC / " SUR o R0G9A* NfME INO 53 q IT 

768 * 

769 * TEST SWITCH 5 

770 * 

771 ATH5 LH SW5 

77? DSC L ATEPP, - ERROR IF NOT SET 

777 * 

7714 * CHK POP COMMA 1 

775 * 

776 ATH10 LD 10 

777 S ACOMA 

778 DSC I ATH17,7 00 TO CHK POP <?t r>A p EN 
77a * 



SEITt Ik 



780 * TEST SWITCH 5 

7fli * 

78? LO >W5 a R NO point" INS T ni; 

7*? qSC L ATH8, - FUNCTION '"ALL. 

7g^ MDX I PARNC,1 INCR C ARAMETER COUNT py i 

791; 3SC L ATHi? "R TO MOVE 1 ELEMENT 

766 * 

787 * CHECK c OR FIGHT PARENTHESIS 1 

78 5 * 

789 ATH1? S ARPP PIGHT PARENTHESIS CCMSTANT 

7qn BSC L ATER*?, 7 n R I p NOT RIGHT PARENTHESI 

7qi LD PAR C ARENTHESTS POUMT 

7Q9 qsC L ATH8, - PR IF ZE^O 

793 HOX L PAR,-! CECR D AR n V 1 IF NOT 7£RC 



• n 



7Pt» MDX ATH1P 5R IP PAR IS NOW 7cqq 

79F LR SW5 q R IF NO POINTER INST 

7P6 RSC L ATH16, - FIJNCTICN CALL. 

7q7 RSI CKASF C R TO CHK ARITH STMNT FUNC 

798 MDX L CALLN, -1 CALLN r ALLN -i 

7qq HOX ATHl^ °" TF CALLN IS NOW 7£P*3 

800 SLA 16 OLEAP ACCUMULATOR 

801 STO SW C NORMALI 7 F SWJTC" c 

802 * 

8fl3 * GET PAR, PARHO, ANP AS^N c ~r* THE 

80t» * NESTED CALL TAPLE. 
8 05 



* 



806 ATHi<* LOX L3 *-* AODR OF NESTED CALL TAPLt 

807 * *MOOIFIAPLE 

808 LO 3 C IRST TAPLE ELEMENT 

809 STO ASFN ARITH STMNT C UNC KA*E 

810 LO 7 1 SECONH TA^LE ELEMENT 

811 SRT 8 FIGHT JUSTIFY Pfl<? 

812 STO L PAP PARENTHESIS COUNT 

813 SLA 16 CLEAR ACCUMULATOR 

81h SLT 8 SHI^T IN 8 ^POM EXTENSION 

81E STO L PARNC PARAMETER COUNT 

816 * 

817 * CLOSE STRING 2 WCPDS 



* 



818 

8iq STX j ATEM-" INDEX REG 1 TEMPORARY 

9?n LO ATH1h 1 ADOR OF NESTED CALL TA^LE 

821 S ATFMP CURRENT STMNT POINTER 

8?2 STO * 1 ADOR OF NEXT INSTRUCTION 

p?3 LOX L^ *-* °ANGE OP HOVE T^ CLOSE 

8?<* * "MOOIFIAPLE 

8?«5 MDX 1 2 INCR CURRFNT POINTER PY 7 

876 MOX L ATH1<4 1,? TNCR AODP NESTED GALL T? Q L 

8?7 STX 1 ATH18 1 NEW STMNT POINTER 

828 LOX II ATHlt, 1 XRi EOUALS w m'E flf/DRESS 

829 ATH1C LO 1 -3 MOVE TO CLOSE 

830 STO 1 -1 STRING TWO WORDS 

831 MOX 1 -1 DEC? MOVE Anno 

832 MOX 3 -1 PECR MOVE COUNTER 

833 MDX ATH10 °R TC CONTINUE MCVE 

831, ATH18 LOX LI »-» NEW STMNT PT. MOOIFIAP-Lt 

8? c ATH16 BSI L MCVrl °R TO MOVE 1 ELEMENT 

836 BSC L ATHf °R TO CHK C(]p *E MT 0nL9N 

8717 * 

838 

«3q * THI C ROUTINE CHECKS THf AS C TS^LE Tr 



*»**♦***♦*****♦****»#********##******♦*** 



* •* f * * *-* * i 



S c "ITt 1' 



ski 

34 7 
3*»4 

8«46 

8*8 
9h° 
850 
851 
85? 
853 
85^ 
855 

856 

357 

858 
859 
86(1 
861 
86? 
363 
86*» 
865 
866 
86^ 
868 
869 
870 
871 
87? 
373 
3 7<* 
375 
376 
877 
378 

379 
38 
381 
8 8? 
383 
38<+ 
885 
8 86 
887 
388 
839 
«90 
891 
892 
393 
3 94 
895 
896 
397 
898 
899 



* 

CKASF )C 
CKAS LDV 

CKS1 



INSURE THAT CALLS TC ACF STATEMENTS 
HAVt THE CORRECT NC OF PARAMETERS. 
TH r F.NT8Y IS A 9SI INSTRUCTION TO 
TH£ LABEL CKASP. THE: PPUTIN' RETURNS 
ONLY TF TWF MATCH IS CORRECT, 



CKS1A 
0KS2 



CKS3 



MOX 
MOX 
BSC 
LO 

S 
ISC 

LO 

S 

BSC 

MOX 

TESTV nc 

LO 
ISC 
L^ 
S 

BSC 
LD 
MOX 
TESTW LO 
TESTX AND 
BSC 
BSC 
* 

S830E OC 
SA7DE 00 

XY?5 S 

BSC 
LOX 
STX 

LO 

S 

BSC 

LO 

BSI 

AND 

BSC 

LP 
OR 

STO 

BSI 
LP 




1 



3 -?. 

* ? 



I 

LI 

I 



L 
T 



L 

I 



CKA^ 

¥«.¥ 



AS^w 
L C*S1,7 

L "ACNC 
L AT£PP,7 

CKS1A 



SUBR ENTPY PRINT 
INITIALIZE INOEX ^EG 3 
•HOHIFIAPLF: 

C KIP NEXT IP XR3 f-£G OR 
"RANCH IF YR3 POSITIVE 
EXIT FROM CKASF 
PRESTOREP A^F TABLE AOPR 

*mooipta'ple 

COMPARE NAMES 

BR IP NOT SAME NAPE 

PRESTOREP ASP TA9LE ACER 

♦NOTIFIABLE 

COMPARE PARAMETER COUNTS 

BR TO ERROR T p NCT EQUAL 

°R TO EXIT IF MATCH 



CHE r * p OR VALID VAKIA"LE IN 
ARITV-METIC EXPRESSICN 





SOR^ 

TESTW, 



FNAMP 

TESTV, 

SA7PE 

TESTX 

S83 n E 



XY7,7 

TESTV 



/83 n 

/A7C 



ENTRY POINT 

SUBPROGRAM OP FUNP IN OR 

n R IF NOT FUNCTION 

K'EXT STMNT WORD 

PIJNCTION MAMf 

EXIT IF NAME COMPARE 

LEGAL FUNCTION 10 MASK 

PR TO MASK SYMBOL TRL 10 

LEGAL SUBROUTINE 10 MASK 

wASK SYMBOL TABLE IB WORD 

BR TO EPP'CP IP flfyY nTJ5 ON 

FXIT IF LEGAL SU"P OR FUNP 

SUBROUTINE IP MAS* 
P'JNCTICN ID MASK 



W 



CHE r K CALL STMNT SYNTAX 



CCALL r ALL 

L X*28,7 n R IF 

3 3° SET X 

I? ERNC C ET U 

10 IS TH 

J. FNAMC *TO I 
L ATEP*?,*- YPS- 

1 NEXT 

L GETIC ^ET S 

SU91X LEGAL 

L ATER-,7 C R TO 

3 SYMBO 

SUBFC SET S 

7 RE STO 

L NAM" PALL 

L SW7 CIMEN 



IP CONSTANT 

NOT CALL 

P3 39 

p pp|?op NUHa^R 39 

IS A CALL »V1M.-? 

TSELP * VI !*3 

ERROR 7 9 *V1M7 

STMNT WORO 

YMqnt 
SUBPROGRAM HACK 
ERROR ]P HOT LEGAL 

L TABLE ID WCRO 

UBPROG 1NDP C IT ON 

RE SYMBOL TAPLil 10 WP 

NAME 

SIONED NAME C WTTPH 



goo 

901 

902 
903 
904 
905 
906 
907 
90* 
909 
910 
911 
912 
91? 
914 
915 
916 
917 
91 B 
919 
920 
921 
922 
92? 

9?<4 

925 
926 
927 
9 28 
929 
930 
931 
93? 
933 
9 34 
935 
9 7 6 
937 
93B 
939 
940 
92*1 

94? 

943 
aim 

945 

946 
947 

948 
949 
950 
951 
952 
953 
95 <♦ 
955 
956 
957 
95* 
969 



Sc.ITf 


1 ; 




BSC 


L 


ATcPP, 


LP 




RCC P 


9SI 


I 


CHECK 



* 



XY30 
* 



in 
s 

BSC 
9SI 



STX 

LP 

S 

BSC 

S 

9SC 

a 

SLA 
STfl 
MOX 

MOX 



XY30 
XY30 



XY30C 






* 



XY30? 



LP 
LDX 

S 

BSC 

S 

BSC 

LOX 

STX 



LP 
RSI 
AND 
9SC 



LP 

SLA 

BSC 

LP 

OR 

STO 



BSI 
MBX 



ar> if MOT OI*ENS ICNED NAMF 

r OPERATOP 

CHECK FOR OVERLAP 



L 
L 



LI 



L 
L 

It 



CM C CR LE r T PARENTHTSI^ 1 





LPA" 

XY?9 

MOV r 



next c tmnt woro 

ieft parenthesis constant 

°r if not left parenthesis 



BR TO MOVc ONE tL r MENT 
CHECK POP SUBSCRIPTED FLEMF.MT 



XY30 5 1 *AVE XR1 

1 NEXT STMMT WCRP 

LX1 SURSC CHARACTER LCW LIMIT 

XY30A, 7 n R IF NOT SUBSCRIPT CHAR 

LX2 ^UBSC CHARACTER HIGH LIMIT 

XY30A,-7 a R IF NOT SU^SCRI^T CHAR 

LX3 RESTORE SUBSCRIPT VALUE 

1 ^py py 2 

* 1 AQDR NEXT INSTRUCTION 

+-* INCR TC ^KI C OVFR SU9SC 
*M09TFIf. PLE 

11 fl JUST Q V ONE MORE 

CHK FOR COMMA CR RT °Af ENTRUSTS 



1 1 
11 *-* 



LX4 

XY30C, - 

LV5 

XY"^nr,7 

39 

ERNO 



*£XT CHA" BEVQNP SUBSCRIPT 

PESTORE STMN1 POINTER 

♦MCni^IAPLE 

COMMA CHARACTER CCNSTANT 

a R IF CHHHA 

FIGHT PARENTHESIS CCNSTANT 

*R IF NOT RIGHT PARENTHESI 

TNPEX REG 3 39 

SET UP ERROP NUMBER 39 



CHECK FDR LEGAL VARIABLE 



1 



GETT n 
LX6 

XY^OP, 7 



NEXT STMNT WRPP 
OFT SYrtRPL TA^LE T WORP 
LEGAL VARIABLE 10 MASK 
PR IF NOT LEGAL VARIABLE 



CHECK FOR SUB°RGGPAw NAME 





XY3QG, 7 



LX7 



CALL NAME 



STG 



L NAM?- 

XY30E 



^YM9CL TABLE ID UCRB 
SUBPROGRAM NAME n ^T TO 
R R TP SUP PR CORAM NAME 
SYMBOL TABLE IP WCRD 
c EFERENOEP INPICATOR HIT C 
PESTORE SYMBOL TA^L- ID WD 



n R TO CHK NAME OIPENSICNIN 
W TO CHK FO? COMHA 



^pj ijd ppr?cr? DUMBER 4* 



SCITE 



960 
961 
96 2 
963 
96*4 
965 
966 
967 
965 
96 c 
970 
971 

97? 
97? 
97*» 
975 
976 
g?,7 
978 
970 
980 
981 
98? 
983 

98<4 

985 
936 
987 
988 
989 
990 
991 
992 
99^ 
99<* 
995 
996 
997 
998 

999 
1000 
1001 
100? 
1.003 
10 0<+ 
1005 
1006 
10 07 

1008 
1009 
1010 
1011 
101? 
1013 
101t» 
1015 
1016 
1017 
1018 
1019 



XY30O 

* 

XY30E 



XY31 
XY29 



XY30G 



LOX 
STX 



BSI 



LO 

S 

RSC 

s 

RSC 

RSC 

Ln 

RSC 

LO 

BSI 

hox 

SLA 

RSC 

hox 

LD 

RSC 

in 

S 

RSC 

LH 

OR 

STO 

MDX 



3 *»0 
f EPNO 



INDEX REG 3 kd 

<^ET U 53 FRRO D NUM n ER <+0 



* 

LX1 
LX2 
LX3 

LYh 
LX5 

LX6 
LX7 

LX8 
LX9 
OCALL 

LPAR 

DMAS 

RCOP 

RPAR 

RFAC 

ASFIO 

RASF 

SUBP9 

SUR1X 

* 



DO 
RC 
DC 
RC 

nr 

RC 

RC 
DC 
DC 

nc 

DO 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 



CALL ARITH EX^RESRICN SCAM 
L ARITH CR TO ARJTH SCAN <"U n ROUT!M 
CHECK ^DR COMMA 1 



L 
i 
L 

L 

L 



L 
L 

L 

L 




CMA* 

XY30, - 

RPflP 
XY7,7 

MOVtl 
XY13 

XY7,Z 

RFAC 

CHE r K 

XY31 
3 

Z + 
XY^QF 

SORF 

ATFRR,+ 



PNA*F 

ATES3, 7 


LX7 


XY3HP 



NEXT STMNT 

COMMA CHAP 

P R IF 

RIGHT 

sR IF 

PR TG 

RR TO 



WORD 
CONSTANT 

COMMA POUND 
PARENTHESIS 1 
NOT RT PARENTHESIS 
MOVE ON£ EL-MFNT 
CHETK cqp SEMICOLON 
NEXT STMNT WORO 
C R TC E*?R IF NOT c EMIOOLCN 
FLOATING ACC INniCATO D 
flJTPUT AN" CMK FOR OVERLAP 
ep, TO CHK FO ? SEMICOLON 



TEST IF EXTERNAL 
SKIP IF NCT 
CONTINUE 

TS THIS A FUNCTION 
NO - ERROR 79 
PARAMETER IN CALL 
c UNCTION NAMf 
ERROR IF NOT SA*E 
^ET REFINED 
•VARIABLE RIT 
•IN in WORO 
CONTINUE 



*V1 M ? 
•V1M3 

♦ V1M3 

• V 1 m 3 
•VIM 3 
•V1M3 
•V1M3 
♦Vi*3 
»VI*3 



CONSTANTS AMD WORK AREA 

/!« SURSC CHAC !_nw LT*TT CON 

/1E-/18 SURSC CHAR HIGH LIMIT CON 

7 RESTORE SURSC VALUE CON 

/12 COMMA CHAR CONSTANT 

/ n 2-/12 r IGHT PARENTHESIS CONSTANT 

/83*»E LEGAL VARIABLE MASK 

/0020 c EFERtNCEC STMNT NO. INDR 

/B pr E LEGAL ARITH STMNT FUNC MAS 

/ 1 ARITH STMNT FUNC INDR RIT 

/06-/QF CALL ID 

/10 LEFT PARENTHESIS CONSTANT 

/I? COMMA CHAR CONSTANT 

/?E GALL OPEPATOF 

/02-/1? RIGHT t5A r ENTHESIS CONSTANT 

/80^0 FLOATING ACC INRC CCNSTANT 

/1A-/06 ASF ID 

/?C «SF OPERATOR 

/Q 08 SUBPROGRAM INDR ^TT 

/nnf-E LEGAL SUBPROGRAM *ASK 

CHK CQR APITH STMNT ^UWCTIOM 



;tiTE 1* 



1020 XY28 S ASPJ n ARITH STHNT FUNC TP 

1021 RSC L XY2F,Z PR IF NOT APITH STHNT C UNC 

1022 LDX 3 ^1 INDEX REG * Hi 

1023 STX L 7 ! ERNC SET U" 3 ERROR NUMRFR /+-* 

10?*+ * 

1025 * CHK rr)P VALID ARITH STHNT FUN': NAME 

1026 * 

1027 LP 10 NEXT STMNT WORD 

1028 RSI L GETTQ GET SYHRPL TABLE TO WORP 
1023 AND LXS VALID ASF NAME ^ASK 
1030 RSC L XY?,7 BP IF NOT VALID TC S"T ERR 



Ln 


1 





RSI 


L 


GETTQ 


AND 




LX8 


RSC 


L 


XY?,7 


LP 


7 





QP 




Lxq 


STO 


3 





RSI 


L 


M V £ 1 



1031 LP "* SYMBOL TABLE ID WCRP 

1032 OR LX9 SET STMNT FUND NA^E BIT ON 
10*3 STO 3 RESTCPE SYMBOL TA^LE 10 WP 
1034 RSI L MOV£l P R TO HOVE ON ELEMENT 

103^ * 

1036 * OPEN STRING 2 WPS IF REOUIR^D 

10V * 

1038 HOX 2 2 INCR OUTPUT STRING ADDRESS 

103Q STX ? XOl INDEX REG 2 TO TEMPORARY 

1040 LD XOl OUTPUT STRING AODFESS 

1041 STX 1 XP2 INDEX REG 1 TO TEMPORARY 
104? S X02 INPUT STRING ADDRESS 
1043 RSC L OKI,- PR IF OVERLAP ERROR 
10l|£, LP XOl CU1RENT OUTPUT STRING <= T 
10U«; S L SPF? STA«T OF STRING APRPESS 
10?«6 STO * 1 AQDR NEXT INSTRUCTION 
1047 LOX L3 *-* RANGE OF MOVfc TO OPEN 
104« * *MOOIFIAPLE 

1049 iOX 3 -2 NO. O c WPPPS TO HCM- 

10F0 LP 2 -3 NEXT WCRP TO HOVE TO OPEN 

1051 STO 2 -1 CP£N STRING 2 WOR^S 

1052 HT\X ■> -1 FEOR HOVE APRRESS 

1053 MDX 7 -1 PFGR MOVE WOPO FOUNT 
105<4 HPX *-5 °R TO CONTINUE MOVE 

1055 LOX I? SOPS NEW START OF STRING ADORES 

1056 HOX L IDSV2,2 TMCR STHNT WORD COUNT ^Y ? 
1 057 * 

1058 * "NT NAME AND 7ER0 IN APITH C TMNT 

105g * FUNCTION TA^LE. 

1060 * 

1061 LP 1 -1 ASF KAft 

1062 STO ? ASF FUNCTION TABLE 

1063 SLA 16 CLEAR ACCUMUl ATPR 

1064 STO 2 1 ^TOPE ZERP IN ASF TABLE 
106F MOX I CKA^ 1,? INCR ASF TAPLE D CT.NT£R "Y 

1066 IPX I' ♦-» RESTORE OUTPUT STRING &T 

1067 XQ1 FPU »-l AODR c OR LAST INSTRUCTION 1 

1068 * *MQPIFIA D 1F 

106° LHX LI *-* RESTORE INPUT STRING n T 

1070 X02 EOU *-l anpP p 0R IA<:T INSTRUCTION 

1071 * 'MODIFIABLE 

1072 * 

1073 * CALL CHECK ASF OPERATOR 
t074 LP RASF ASF OPERATOR 

1075 RSI L CHECK OUTPUT ANT rw K POP OVERLAP 

1076 LP 10 NEXT STHNT WPRP 

1077 S L°AP LEFT PARENTHESIS r ONSTANT 

1078 RSC L XY7,7 pr if NOT L C ^T PARENTHESIS 
\t\7.Q XY3 9 RSI L MOVE! n R TO OU°UT PNE ELEMENT 



SEITi 



1 - 



io«o 

1081 
1082 
1083 
1084 
1086 
108P- 
1087 
1088 
1089 
10=10 
1091 

1092 

1093 

109*4 

199^ 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 

111** 

1115 

1116 
1117 
1118 

1119 

n?n 
1121 

1122 
1123 
112% 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
113? 
1133 
113^ 
1135 
1136 
1137 
1138 
1139 






XY33 

* 



WRTIO 

^ndio 

flPOST 
RFARN 
CCLCN 

¥ 

¥ 

XY26 



¥ 
¥ 
¥ 



HCVCH 



LO 
BSI 

BSC 
BSI 

HDX 

LP 

S 

BSC 

s 

bsc 

BSI 

s 

BSC 
LOX 
STX 

ssc 



oc 
on 

or 
oc 
oc 
no 



RSC 

s 

BSC 

s 

BSC 



LOX 
STX 
BSI 
LB 



¥ 

¥ 



¥ 
¥ 
¥ 



BSC 

S 

BSC 

S 

BSC 

MOX 



BSI 



L 
L 
L 
L 



L 
L 

1 
L 
L 

3 
1.3 
L 



CHK FOR VA1.IO DUMMY AROUMFN" 



NEXT STMNT WORD 

G p T jn °R TC GET SYMBOL TA^LE ID 

XY7, Z °R TO ER^OR IF MINUS 

HOV^l p P TO OUTPUT ON* ELEMENT 

*-*,! COUNT A^F ARGUMENT^ 

♦MOBIFIAPLE 

NEXT STHNT WORD 

QMftc GOMiA CHAR CONSTANT 

XY32, - p P IP COMMA FOUND 

nPflw r IGHT PARENTHESIS CONSTANT 

XY7,7 PR TO ERP IF NOT r T PA REN 

HOVE1 OR TO OUTPUT ONE ELEMENT 

NEXT STHNT WCRO 

EOSCN EOUAL SIGN CHAR GCNSTANT 

XY?,7 nn TO ERR IF NO =HUAL SIGN 

H? ' INDEX REG 3 4 2 

PRNC SFT U p EPROR NUMBER + 2 

XYFf PR TC CHK *W EQUAL SIGN 



CONSTANTS FOP DISK READ/WRITE SCAN 

/12-/1A ?EAO ID 

/11-/12 WHITE in 

/1D-/11 PINO ID 

/42-/Q2 APOSTRAPHE 

/02 PIGHT PARENTHESIS 

/32 p OLON OPERATOR 

SEEK REAO/WRITE OPERATOR 

REDID PEAO ID CPNSTawT 

7 SKI IF PEAR 

WTIC WRITE 1^ CONSTANT 

7 c<ip Tf FIND 

FNDI r p INB ID P0N5TANT 

L XY2?, 7 BRANCH UNLESS PEAD 0= WRIT 

TEST POP SIOK READ/WRITE 

t, 73 ERROR NUMBER 

L^ EPNC SET F^ROP NC JUST IN CASE 

L MOVcl NOVE ONE CHAR 

1 -i GET CHARACTER JUST ^OV^ 

CHECK FOR A n OSTROP u E 

L XY22, - "RANCH IF SE M ICOLCN 

RP4RN TEST FOR RIGHT PftFEN 

L MVRST, - BRANCH IF NOT DISK C /W 

4PO CT CPOSTRO a HF CHAP CONSTANT 

7 SKI° ON APOSTRAPHt 

MOVCM -ff TC MOVt CNE CHARACTER 

GO SCAN FOP SECTOR COOP 

L APITN GO TO SCAN APITH ' XPRESSIO 

1 "ECU I RE FIGHT PA* -1 : N 



SE ITt 



" 1 



114 

11*1 

114? 

1143 

1144 
1145 
1146 
11^7 
1148 
1149 

115 
11^1 
115? 
1151 

115«4 

1155 

1156 
1157 

1158 
1159 
1160 
1161 
116? 
1161 
1164 

116*5 

1166 
1167 
1168 
1169 









+ 

* 
XY?7 



XY??A 



^SC 



STO 



qsi 

LD 
8SC 

RSC 



LOX 

HOY 

mox 

MIX 
RSI 

HDX 
NOX 

■^sc 



BSS 
END 



9<\APN fls TERNIMATOP 

1 XY?,? BRANCH tq E of5 OR IF HOT 

PUT COLON TVER TH" RIGHT PAP ENTHESI5 

COLON COLON OPERATOR 

1 PUT CVER RIGHT PARENTHESIS 

MOV r PEST CP STMNT 



L MOVcl 

1 -1 

L MVP^T, 7 

L CRCTN 



HOVE °EST OP STAT C N C NT 

STO D WHEN SEPICOLCN 

POUND. 

en CORRECT NCRM 



MOVE STATEMENT 

L3 *-* "ANGE OF STHNT HOVE 
*HOOIFIA D lP 

3 -1 NO. OF WORDS TO *CVE 

* 1 n R TP RANGE NOT ? c RO 

XY??A RR TO GO NEXT STMNT 

L MOVTl GO TC HOVF ONE ELE-1F.NT 

3 -1 CECR MOVE COUNTER 

XY2 7 7 np TO MOVE NFXT WCRC 

I XY2? GO GET NEXT 10 

END CP ASCAN PWAS^ 

(3Vt^L-* + 3? n * 3 PHASE-12 PATTH AREA 

ST APT 



